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LL III] BBBBBBBB FFFFFFFFFE III XX XX UU UU PPPPPPPP DODDDDDD 

LL HII] BBBBBBBB FFFFFFFFFF III XX XX UU UU PPPPPPPP DDDDDDDD 

LL I] BB OFF Il XX XX UU UU PP PP 0D D 

LL I] BB BB OFF II XX XX UU UU PP PP 0D DD 

LL I] BB OFF Il XX = XX UU UU PP PP ODD DD 

LL II BB OFF II XX XX UU PP PP DD DD 

LL I] BBBBSBBBB FFFFFFFF II x UU UU PPPPPPPP DD DD 

LL I] FFFFFFFF I] XX UU UU PPPPPPPP DD DD 

LL I] BB OFF II XX = XX UU UU PP DD DD 

LL I] BB OFF Il XX XX UU UU PP DD DD 

LL II BB BB OFF II XX XX UU UU PP DD DD cece 
LL I] BB BB OFF II XX XX UU UU PP DD DD cece 
LLLLLLLLLL IIIII] BBBBBBBB FF III1I1 XX XX UUUUUUUUUU PP DDDDDDDD cece 
LLLLLLLLLL II1111 BBBBBBBB FF IIII11 XX XX UUUUUUUUUU PP DDDDDDDD cece 
LL IIIIII SSSSSSSS 

LL 1111 SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL Il SS 

LL I] S$ 

LL I] SS 

LLELLELLLLL III] SSSSSSSS 

LLLLLLLLLL IHI11] SSSSSSSS 
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++ 
; FACILITY: General Utility Library 
; ABSTRACT: 


LIBSFIXUP_DEC fixes up decimal reserved operands when a 
reserved Operand fault occurs so that execution may cont true 
at that instruction or the next instruction. It is designed 


to be a condition handler or to be called from a condition handler. 
; ENVIRONMENT: Runs at any access mode, AST Reentrant 
; AUTHOR: Peter D Gilbert, Version 1, CREATION DATE: 03-DEC-1980 


Adapted from LIBSFIXUP_DEC 


; MODIFIED BY: 


v02-002 PDG002 PDG 25-Oct-1983 


and 
; File: LIBFIXUPD.MAR Edit: PDGO02 
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Modify the source if possible. If not, copy the source before 
attempting the instruction. Also, store the condition codes. 


vO2-001 PDG001 PDG 10-Aug-1982 
Fix a problem with searching the translation table. 
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-SBTTL DECLARATIONS 
LIBRARY MACRO CALLS: 
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vcr 
mm 
aon 
CC 
>x 
zc 
>o 
— 
oe 
zo 
wn, 


d 
I 
3 
0 SSFDEF ; Stack frame symbols 
0 1 SPSLDEF ; Processor Status Longword symbols 
; § SCHFDEF 3; Condition handling facility symbols 
SSTSDEF 3; Status value symbols 
4 : SSSDEF ; System status values 
Bp § ; EXTERNAL DECLARATIONS: 
8 8 -DSABL GBL : Force all external symbols to be declared 
00 9 eEXTRN SYSSUNWIND 3; Unwind stack frames 
000 0 -EXTRN LIBS_BADSTA ; Bad stack frame 
4 1 -EXTRN SYSSTALL_HANDL ; System routine that calls handlers 
000 : ; MACROS: 
000 43 
000 5 3 NONE 
000 6; 
B08 f ; EQUATED SYMBOLS: 
00000000 0000 9° RO_OFF = 04 ; RO register offset in register image 
00000004 0000 0 R1_OFF = 1%4 ; RI resister offset : . 
00000008 0000 1 Re -OFF = he: ; R2 register offset 
0000000C 9000 ¢ RS_OFF = 324 ; R4 register offset 
00000030 0000 AP_OFF = 12%4 ; AP register offset 
00000034 0000 4 FP_OFF = 13%4 ; FP register offset 
000 5 SP_OFF = 1484 ; SP register offset 
0000003C 0000 6 PC OFF = 154 ; PC register offset 
00000040 444 PSC_OFF = 16*4 : PSL offset 
00000000 0000 9 STACK = 0 ; Used by DCL macro 
000 0 MAC DCL, SYM, LEN ; Declare stack temp offsets 
000 1 STACK = STACK = 4*LEN : Allocate LEN longwords 
000 4 SYM = STACK : Define SYM 
000 .ENDM 
000 
000 
0 
0 
0 
0 


Oo 
So 
So 
oO 
Oo 
Oo 
i 
co 
OOOO OCSOSOSOOCOOOOOOSOOOOOOOOOOSOOOOSOOOOCOOOOSOOOOCOO OOOO OOOOOOOOOOOOO 


DCL REG_IMAGE, 17 ; FP offset for image vector of registers 
00 DCL ADR_IMAGE, 17 ; FP offset for image vector of addresses 
00 ; where registers have been saved in stack 
00 3 DCL OPD_IMAGE, 6 ; Addresses of operands 
FFFFFFFC $6 100 IMAGE _PSL = -4 ; FP offset of PSL image 
FFFFFFFS bb : : IMAGE_PC = -8 ; FP offset of PC image 
00 1 
BS 104 ; Define codes used to denote operand types in opcode/operand tables 
86 ! 5 ; to follow. 
0000000 00 1 $ OP_2 = 0 ; No more operands to process 
it ; 1 1 3 OP_W = 1 ; Word 
0 § 1 OP_D = § ; Decimal 
it 0 88 110 OP_P = ; Packed 
000004 38 : } OP_A = 4 ; Address 
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; OWN STORAGE: 


, -PSECT _LIBSCODE PIC, USR, CON, REL, LCL, SHR, - 
EXE, RD, NOWRT, LONG 


3 
w 
~ 


Tables of opcodes and operand types. The first byte in each entry 

is the opcode. The remaining bytes (up to 6) are OP_x codes defined 
above that specify ey datatype each operand is for that instruction. 
if an operand type is 0, then no more operands are processed for that 
nmstruction. The opcodes must be in decreasing order, and the final 
opcode byte must be a zero. 


Table for single byte opcodes. 
ING_TA 


CPO « Oe Se Se Se Se Oe Ge Be 


B: 
-BYTE 136. OP_W, OP_D, OP_A, OP_W, OP_P, 0, 0 ; CVTTP 
my 0 9, OP_W, OP_D, OP_W, OP_P 0, 0, 0 ; CvTSP 


: Table for registers used in this instruction. 
; The high order word is used for auto-increment/decrement. 
; These entries must be in the same order as the SING_TAB entries. 


-ALIGN LONG 


REGS_TAB: 

«LONG “X7FFFOOOF 3; CVTITP 

«LONG “X7FFFOOOF ; CVTSP 
; Table of context amounts Listed in OP_x code order 
OP_CONTEXT: 

-BYTE 0 ; OP_2 

atte @# ; OP_W 

-—BYTE 1 ; OP_D 

-BYTE 1 ; OP_P 


; PSECT DECLARATIONS: 


-PSECT _LIBSCODE PIC, USR, CON, REL, LCL, SHR, - 
EXE, RD, NOWRT, LONG 


a a ak a ad at 2 = 2 = = = 4 = = 2 — 2 ts ss ss a 


MUMMIES BEEPS RWW 
AEA CO ODNA UMN EW 0 ODN UF WIR) OOO NOUS WR OVDOOJOusrw 
. 


tal 


I § 
reserved operand 16-SEP-1984 01:19: AX/VMS Macro v04-00 P 
Fixup decimal reserved o 5-SEP-1984 83: 42:96 SORT32.SRCILIBFIXUPD.MAR; 1 Nee 


; -SBTTL LIBSFIXUP_DEC = Fixup decimal reserved operand 

; FUNCTIONAL DESCRIPTION: 

LIBSFIXUP_DEC finds the reserved operand of the decimal instructions 
CVTTP or CVTSP after a reserved operand fault has been signaled. 


If possible, LIBSFIXUP_DEC will change the reserved digit(s) to ‘'zero’’. 
Otherwise, execution proceeds with the next instruction. 
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; Exceptions: 


LIBSF IXUP_DEC 5% not handle the following cases and will return 
a status of SS$_RESIGNAL if any of them occur. 


1. The currently active signaled condition is not SS$_ROPRAND. 
2. The reserved operand's datatype is not Decimal or Packed. 


CALLING SEQUENCE: 


ret_status.wic.v = LIBSFIXUP_DEC sen te) <8 1ger gi St .0) <8. 
chf$l_mcharglst.rl.ra ) 


; FORMAL PARAMETERS: 


CHFSL_SIGARGLST = Address of signal argument vector. 
CHFSL_MCHARGLST = Address of mechanism argument vector. 


IMPLICIT INPUTS: 
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The stack frames back to that of the instruction which faulted. 
The instruction which faulted and its operands. 


; IMPLICIT OUTPUTS: 
The reserved decimal operand, if found, is replaced by ‘‘zero’’. 
COMPLETION STATUS: 
SS$_CONTINUE = continue execution at point of condition 
Routine successfully completed. The reserved operand was 
found and was fixed up. 
SS$_ACCVIO = access violation 


An argument to LIBSFIXUP_DEC or an operand of the faulting 
instruction could not be read or written. 
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SS$_RESIGNAL - resignat condition to next handler 
The condition signaled was not SS$_ROPRAND or the reserved 
operand was not a decimal value. 


LIBS_BADSTA = bad stock : 
The stack frame Linkage had been corrupted since the time of 
the reserved operand exception. 


Note: If the status value returned from LIBSFIXUP_DEC is seen b 
the condition handling facility, (as would be the case 
LIBSFIXUP_DEC was the handler), any success value is equivalent 


OOCCooo 


4 § tQODDOODOOOOO00OO0 OOO OOO OW 090909 09 0909 09 09 09 SI NINN NINN NN IOP A AAA 
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fo SS$_CONTINUE, which causes the instruction to be r tpertes. 

Any failure value is equiva ent to SS$_RESIGNAL, which w ause 
the condition be gnalled to the next handler. “in s is 
because phe sonéteten handler (LIBSFIXUP_DEC) failed to handle 
the condition correctly. 


SIDE EFFECTS: 
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If the reserved operand is fixed up, the instruction which 
faulted is restarted. 


+ 
Registers used: 


scratch 


; Ri = scratch 

$ R2 = pointer into Seanereperant table 

: R3 = context index 

3 R4 = OA1 (operand address) of bits 3 $39 

: R5 = OA2 (operand address) of bits 63:32 which may not be 

3 ante since registers not necessarily saved contiguously. 
; R6 = Ha de oy number of operand specifier 

; ot = weer into operand image block 

3 = cere 

; R9 = mask 3 registers used in operands 


OFFC ENTRY LIBSFIXUP_DEC, “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 
: save all registers so that all will be 
: found in stack duri ng back scan. 
n 


; disable IV (content index multiply) 


6D 59°AF MOVAB B*SIG_TO_RET, (FP) : Enable condition handler 
50 04 AC 00 MOVL CHFSL-SIGARGLST(AP), RO ; RO = adr. of signal arg List array 
QO00008A 8F 04 A0 19 O03 ED CMPZV = #STS$SU_COND_ID, - 3 position of message identification 
#STS$S_COND_ID, - ; size of id 
CHFSL_SIG_NAME (RO) : compare 29-bit VAX-11 signal code 
#<SS$ ~ROPRANDA-STS$V._ COND_ID> ; with reserved operand code 
1c 3=—12 BNEQ RESIGNA : “resignal the error 
5E E338 C 3 2s: MOVAB STACK(SP), SP : allocate stack space 
024 3 BSBW GET_REGS ; setup the two image vectors in local stora 


; do not return here if error, instead RET w 
3 error completion status 


: Get instruction opcode. Determine if this is an instruction which 
; we can handle. If not, resignal. If so, load R2 with the address 
: _of the operand table entry for that opcode. 
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W222 2OEO DP NNT THO NMI SIN 


0130 30 BSBW NEXT BYTE ; Get first secede byte 
52 FFBA CF 9E MOVAB USING, TAB, R2 : Table bas 

50 2 91 3$: CMPB : Is this the opcode? 

» BEQL MATCH : Yes, we have a match 
52 § 4 ADDL2 #8, R2 : Skip to next entry 

6 STB (R2) : At end of table? 

F412 BNEQ 3$ 3; No, continue searching 

RESIGNAL: 


5 
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50 0918 8F f a MOVZWL #SSS$_RESIGNAL, RO ; We can't handle this exception, return SS$ 
7 ; RO = RESIGNAL error completion code 
00 0 74 SIG_TO_RET: WORD 0 
Hy Se AC OD 8 75 MOVL (AP) ,R1 
00000920 8F 04 Al D1 7 id: CMPL = 4(R1) ,#SS$_UNWIND | 
4 is 67 7 BNEQ 1$ 
50 1 Dd 9 4 MOVL #SS$_NORMAL ,RO 
04 C 7 RET 
50 +4 AC DO D 0 1$ MOVL BC(AP),R 
Oc AO 4 Al bY 1 1 MOVL 4(R1),12(R0) 
C 6 § CLRQ (SP) 
00000000'GF 0 FB 7 CALLS #2,G*SYSSUNWIND 
i 04 7F 4 RET 
080 5 MATCH: 
57 E338 CD 9€ bee $ MOVAB OPD_IMAGE(FP), R7 ; Address of operand address block 
59 4 a087 A CLRL R9 ; No registers are used yet 
4 8 ; Scan the operand List, getting the addresses of all operands 
on oe oe oe Get next d type byt 
; Get next operan e e 
35 95 $089 38 TSTB ; No more gporends te test? 
07 +13 0088 94 BEQL ALLOPDS ; Yes, we have all the operands 
18 10 008D 95 BSBB NEXT_OPERAND ; Look at next operand 
87 54 D0 O08F 96 MOVL R4, TR7)+ ; Save address of operand 
is. WS 95 4 BRB 
0094 $23 ALLOPDS: ; ALL operand addresses are available 
OOF5 30 0094 00 BSBW TRY_TO_FIX ; Try to fix the error 
B9 50 €9 0097 30) BLBC RO, RESIGNAL : If we can't, resignal the error 
FB78 DD 08000000 8F CA OO9A 86 BICL2 #PSLSM_FPD, @PSL_OFF+ADR_IMAGE (FP) _ ¢ Clear FPD bit 
50 01 DO O0A3 Hi MOVL #SS$_NORMAL, RO > Everything is okay 
04 O0A6 04 RET 3 return 


3 
LIBSF IXUP_DEC - Fixup decimal reserved operand 16-SEP-1984 01:19: AX/VMS Macro Vv04-00 P - 
ve 000 NEXT OPER RAND = Get next eperend iets 1 §3:32: 96 YeoRT Se. SRCJ C18 FIXUPD.MAR; 1 sit (4) | 
a ee .SBTTL NEXT_OPERAND = Get next operand ; 
A? 308 ; FUNCTIONAL DESCRIPTION: | ; 
4 19 Interpret the instruction stream and gets the next operand. | : 
OA? 1 ; CALLING SEQUENCE | 
Oar $14 JSB_——_—NEXT_OPERAND ; 
OA? 316 ; INPUT PARAMETERS: 
ODA? 1% ; R2 = address of operand type table 
QOa? $20 | IMPLICIT INPUTS: : 
00A7 : REG_ IMAGE (FP) : The i f th isters including PC ; 
Boar § 3 instruction stream oh stages hs stain tiptoe Sones sont : 
QA? 325; OUTPUT PARAMETERS: 
00A7 7; R4 = OAl (operand address of bits 31:0 of operand) : 
00A7 8 ; R5 = OA2 (operand address of bits 63:32 of operand) if R1 = 8 . 
BoAD 4 : R9 = mask of registers used in the operands : 
00a? i ; IMPLICIT OUTPUT: 3 
BoA 38 ; Saved image of PC is updated as operand stream is interpreted. 
OOA7 335 : COMPLETION STATUS ; 
00A7 36 ; 3 
Bp : 
QOA? 359 ; SIDE EFFECTS: : 
Q0A7 41; NONE = uses registers RO:R9 - see LIBSFIXUP_DEC for register usage ; 
Bg Fo : 
QOA7 344 NEXT_OPERAND: ; 
53 D4 QOA7 45 CLRL 3 ; R3 = initial context index register $ 
50 62 9A OQO0A9 46 MOVZBL (R2), RO ; Get operand type byte 3 
51 FF6B CF40 QA aie rt ri MOVZBL wW*OP * CONTEXTCROJ, R1 ; Get context amount : 
4 $3 : Loop to get operand specifier - loop back here (once) if operand specifier is inde : 
08 51° 
08 3g LOOP_OP: 
00BD 30 008 5 BSBW eat BYTE ; RO = next I-stream byte (sign extended) 
56 28 04 OO EF B 54 EXTZV #0, R4, RO, R6 ; Re = register fie 
50 0 ge 04 3 A 55 EXTZV 4, #4. RO. 5 = operand specifier 7:4 | 
0 96 ; B36 BITB ©: #81106, RO : Do we use the register? 
1 Ce 5 BEQL Ll ea ; branch if not | 
38 g) 8 7 C 28 ASHL ere 2 -_R8 3; Mask of register used 
FC AE 01C00000 8F 7 c8 ASHL RO, #*xX01C00000, -4(SP) ; Is a regis co nod’ tied by this? 
oF D1 60 BGEQ 1$ ; branch 
58 10 10 ; F >} 61 INSV +o #16, #16, RB ; Also set che. register modified bit | 
59 C D 62 1$ BISL2 R8, RI : Include into other modified registers 
| 


List} pur DEC 


oO 
@ 
oO 
=> 
uw 
oOo 


51 BC AD46 


BC AD46—s 51 
54 BC AD46 
40 


54 BC AD46 
4 64 

BC AD46 «04 
25 


zi 
m 

—~—. 
' x 
oc 


COoQoooooooooo 
GOOCCGOCOOOOCooO 
OPM SPOnaganerwon mT 


CON NAAM WE Wirvo 


COOOOCOCOOCOOOCOOC COCO O OOOO OOO OOOO SOOO OOCOCOOOOO OOOO OOOOOOOOOOOO 
SPP BEEP EEE EE EEE EEE EF PWN AAA AAA AAA AAAI ANIA 


tt a 8 = = 4 IF HOOD DODOOOOO OOOO O OOO O00 0009 09 09 09 09 09 09 09 SI NI NII NNO AAO AAO 
DONA UE WN OS OD NOUS WIN 9 OD NAME WIN @ O OD NAU EWN 0 OD NOUS WIN OOONOULSW 


cimal reserved operand 
ND = Get next operand 


10$: .WO 


LITERAL: 


INDEXED: 


REG: MOVL 


AUTO_INCR: 

MOVL 

ADDL 
4 


AUTO_INCR_DEF: 
MOVL 


BYTE_DISPL: 
BSBB 
BRB 

BYTE_DISPL_DEF: 
BSBB 
BRB 


WORD_DISPL: 
BSBB 


LOOP_oP 


ADR_IMAGE (FP) 
ADR7 IMAGE +4 (F 


R1, REG_IMAGE(FP)CR6) 
REG_IMAGE(FP)CR6], R4 
SET~OA2 


REG IMAGE (FP)CR6], R4 
#4 REG_IMAGE (FP)CR6] 


SET_O 


NEX 


T BYTE 
DISPC 


NEXT_WORD 
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; R& = OAI 
3 RS = 
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We may want to reference the Literal 
Address of high half of operand 
Address of low half of operand 

Push the return address back 

Store operand 

ALL done 


; Save context index and loop back 
REG_IMAGE(FP)CR6],R1,R3 ; 
1 ; See if already had an index 


R3 = context index 
Go back and get next specifier 


= adr where Rn saved in stack 
OA2 = adr where Rn+1 saved in stack 


; decrement Rn by operand size 


; R4 = OA = contents of Rn 
; set OA2, check op and RSB 


; R4 = OA = contents of Rn 
; increment Rn by operand size 
; set OA2, check op and RSB 


- = contents of Rn 
increment Rn by 4 (size of address) 
set OA2, check op, and RSB 


; RO = next I-stream byte 
; add to PC 


; RO = next I-stream byte 
; add to PC and defer 


; RO = next I-stream word 


. 
a 
. 

a 
. 
* 
. 
. 
. 
. 
. 
o 
. 
* 
. 
o 
. 
* 
. 
. 
. 
. 
. 
e 
* 
. 
- 
. 
* 
¢ 
e 
. 
o 
. 
. 
. 
o 
. 
o 
. 
o 
. 
. 
. 
~ 
e 
° 
e 
. 
e 
. 
e 
. 
a 
. 
os 
. 
e 
. 
a 
. 

. 

e 
o 
a 
. 
. 
7 
oa 
. 
* 
. 
. 
- 
e 

. 

. 

. 
ae 
. 
o 
7 
7 
. 
o 
+ 
e 
+ 
7 
- 
on 
7 
e 
.- 
e 
. 
on 
- 
. 
. 
2 
. 
o 
+ 
e 
. 
. 
- 
2 
. 
. 


a 


N 5 
vaeeedeyr Pe wekieaPehtaaMs cettnasttagetangt—TECERSCASEL QUEER ABMATS.SRESRIN be mansn "OPP 
1 


' 
a 


up d 
OPER 
06 1 13f $ 9 BRB DISPL 3; add to PC 
151 4 § WORD_DISPL_DEF: 
a7 10 01 4 BSBB NEXT_WORD ; RO = next I-stream word 
C 11 ! : ¢ BRB DIS sPC_ DEF ; add to PC and defer 
1 4 § LONG_DISPL: 
as My 4 N = next I-stream longword 
54 BC AD46 > 1 428 
0B 1 190 4 ° ; set se Y check OP, and R 
O15 431 LONG_DISPL_DEF: 
22 10 O1SF 4 ; NEXT_LONG ; RO = Next I-stream longword 
the 435 DISPL_DEF: here for G20} aconent eferred 
54 BC AD46 50 C1 161 434 ADDL3 RO, REG_IMAGE(FP)CR6], nl R4 = (Rn) + Clsp\ acenent 
54 64 00 0167 435 MOVL (R4), RZ R4 = OA = (OA) (do defer) 
16A 4 § 
O16A 437 ;+ 
016A 438 : add context index or 0 
O16A 439 : Set OA2 (operand address 2) from OA+4 since 
Bea a2y 3 3 operand is in memory not a register and therefore is contiguous 
016A 228 
O16A 4435 SET_OA2: 
54 53 CO O16A 444 ADDL R3, R4 3; R4 = OA + context index or 0 
55 04 54 C1 O16D 445 ADDL3 R4, #4, RS : RS = OA2 = OA + 4 
05 0171 446 RSB 


DISPL: Apel s nO, (RES SHAGE (FP) CROJ. ri, * 3 R4 = OA = (Rn) + co sPtacenent 


B 
decimal reserved operand 


LIBSF IXUP_DEC = Fixu 16-SEP-1984 01:19: AX/VMS Macro V04-00 Page 1 
Oee000 NEXT OPERAND = Get next operand met 7 83:32:98 HOORAY SS. RET IMP TXUSD MARS 1 . (8, 
17 448 ;+ 
Vf is ; routines to get next byte, word, or long from I-stream and sign extend 
15 ‘31 
17 4 ; NEXT_BYTE: 
50 F8 BD 98 O17 45 CVTBL @IMAGE_PC(FP), RO ; RO = next byte 
F8 AD it 17 454 IMAGE _PC(FP) ; update PC 
17 455 RSB 3 return 
17A $28 
17A 457 NEXT_WORD: 
50 F8 BD 3 17A = 45 CVTWL age PC(FP), RO ; RO = next word 
FB AD 02 ¢ 176 45 ADDL #2, IMAGE_PC(FP) : update PC 
1 46 RSB ; return 
4 461 
1 rh NEXT_LONG: 
5 F8 BD DO «(01 46 MOVL @IMAGE _PC(FP), RO ; RO = next longword 
FB AD CO 0187 464 ADDL #4, IMAGE _PC (FP) ; update PC 
05 0188 465 RSB 3; return 


o 
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reserved operand 16-SEP-1984 219: AX/VMS Macro v04-00 Pa 1 
y to *\x the operands of ~$FE 1382 84:42:96 SORT32.SRCILIBFIXUPD.MAR; 1 st ( 


ion -SBTTL TRY_TO_FIX = Try to fix the operands of the instruction 
; FUNCTIONAL DESCRIPTION: 


LIBSE IXUP_DEC - Fi 
voe-000~ TRY} 


=< oO 


; Try to fix the operands of the instruction. 
; CALLING SEQUENCE 

JSB TRY_TO_FIX 

; INPUT PARAMETERS: 


Re = address in operand type table 
R9 = mask of registers used 


IMPLICIT INPUTS: 


REG_IMAGE (FP) ; The image of the registers including PC 
instruction stream 


OUTPUT PARAMETERS: 
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RO = 1 if successful, 0 otherwise : 

R9 = mask of registers used in the operands : 

49 IMPLICIT OUTPUT: 3 

494 NONE 3 

495 ; ; 

COMPLETION STATUS 3 

497 ; 3 

498 NONE : 

499 ;: : 

500 SIDE EFFECTS: é 

501 5 

ay NONE 3 

503 ;-- 3 

504 3 

505 TRY_TO_FIX: : 

208 i+ 3 

a4 ; Find which registers are clobbered by the instruction : 

50 E70 CF oF 509 MOVA SING_TAB, RO ; Base address of R2 3 
52, 52. 30S 10 SUBL3 RO, R2, R2 : R2 less SI ; 
51° 52 FD BF 78 11 ASHL. #-$, R2, RI : divided by ; 
52 FE61 CF41 43 le MOVAQ S1NG_TABERI : R2 ; Restore pointer to opcode value ; 
59 FEOF CF41 OD 1 BITL REGS TAB R1], R ; Did we use any clobbered registers? $ 
54 «612 1 “ BNEQ 100$ : Yes, we can't find the source 3 

1g ; Try to find the invalid byte. 3 

54 338 CD) 036 7D 13 MOVa OPD_IMAGE(FP), R4 ; Get the source ; 

4 g 4 1 MOVL (R4T, RS : 

6 > 8 0 MOVL R 6 ; Grab original source address 3 

09 3 91 1 CMPB (Re), #*x09 ; Was the instruction CVTSP? : 

12 § BNEQ 40 : No, don't check the sign 3 

4 06 5 INCL 4 3 


eR sncmenoma teres 


d 6 :19:22 YAX/VMS Macro V04-00 Page 12 
erand 19-SEP-1984 01:19: »SRCILIBF IXUPD.MAR; 1 (6) 
LOSE IXUP_DEC TRY TOFIX’= Try to fix the operands of Sasepa19e6 05:56:89 om § ot oaht 
VO4- of eng ; Check source 
: #0, R4, (RS) ; 
65 54 00 0 1BA 4 408: pRogeu £95 : Branch if writable 
if $ copy the source string onto the stack 
1¢ - ; Save return address 
) 1¢ : MOVL Sage RO ; Make stack space for the string 
20 i C 1¢ 0 SUBL2 = R4, S$ ; New source string address 
f DO OIC 1 movl $F. RI ; Push return address 
a 6 dD 168 § 8 ge a RO : Copy byte-Length to a temporary 
ie ee ite nA MOVE ORT. 4+OPD_IMAGE (FP) Address of new = 
ES3¢ CD 51 DO OIC ¢ BRB i | ieee & byes 
83 90 01D 41$: ROve Nae ss ; More bytes to move? 
sta a ES bibs 5 — UBL Ss. R4, Ri R5 ; Get new source address 
55 51 54 C3 01DB : ECL rae ; tion CVTSP? 
o és Of bier B40 chs CR2), #*X09 | ie. donk shock the Sloe 
26 12 QIES 34] CMPB (RS), WAA/ / 
20 65 9} OIEG 54g tae ie (AE 
OD 13 0189 54 CMPB (RS), #*A/=/ 
20 65 «(91 «OTE 544 CMPB {R5), 
0 13 O1EE 545 PB (R5), #*A/+/ 
# e3 33 SES 278 Bear 30$ ; Put a space into the sign position 
oe i Blaeaagtctainas 
19 1 OIFA 580 ore ons ; Indicate an error 
50 D4 IFC 551 1008: CLRL RO 9 pe 
05 OIFE :' #*A/0/, (R5)+, RI , 
"RRR EE me es pon Hatten, 
me +f 0206 355 BLSSU 60 ; Move a zero to that byte 
im 0208 556 MOVB #*A/0/, =1(R5) : Try for more bytes 
PF eo be Fe O90C $87 60s: —-SoBeEG R4, 508 : 
020 $59 t gee if the instruction now ware 
i OPD_IMAGE(FP), R ion CVTSP? 
7 PB OH Gr BRP CeBSINASESS : Yas the struction CVISPT sg pvt 
EQL . ‘ 
dia $519 27 3% . f it's not valid, change it. 
§ 19 565 ; Check the overpunch character. 1 
a 19 66 :- ; The overpunch byte 
19 567 © MOVZBL (R5), RI ; The translation table 
4.9 $3 8A OSI9 67 MOVL 8+0Pb IMAGE (FP), R2 Be heey pede gh. 
52  €340 CD 00 f 208 MOVE (R2)CR1J, RI S is'the digit. valid? | 
es 5 70 CMPB R1, #*xAad : Branch if not valid | 
AO oF ft YI 9 71 BGEQU 61$ . : Is the sign valid? 
OA 51 04 00 €D ig BGEQU 648 ; Look for a good character 
8 Df 74 618: CLRL RV ; Jump into the Loop 
a, 4 375 BRB 638 ; Less characters to try 
31 9 76 62$: INCB RI ; We couldn't find a good byte | 
, % § 1S CS eos : Grab this translated byte | 
§ 90 A 78 63$: MOVB (R2)+, RO : Is the digit valid? | 
a : 1 D 15 CMPB RO, #°XA0 : Branch if not valid 
nO-8F FS te 0341 880 BGEQU 6 
| 


] 
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LIBSF IXUP_DEC = Fixup decimal reeee ed o ovrend” SEP=1984 AX/VMS Macro V04-00 Page 13 | 
yoe~000 TRY.TOFIX = - Try #\x the rand a of "Ec “SEP-1984 2 3: 33: ¢$ YSoRv 33. SRCILIBF IXUPD.MAR; 1 ° oni 
OA 50 04 00 Fp t3 1 CMPZV) «#0, #4, RO, #*XOA : Is the sign valid? 
a a eee Sr LE cSt on 
ore the va e 
97 97 «97 $3 t 2% 4648: CVITP ach7)+, @(R7)+, a(R7)+, a(R7)+, i S50 : . | 
97 97 9Y7 7 O9 § 70$: CVTSP ts ioe @(R7)+, @(R7)4+, A(R7)+ 
0 11 " P BRB 110$ 
5¢ 5 ; we reek y shouldn't be using the state of the output registers to zero 
43 Ps i the destination, but we do So anyway. 
2¢ 9 : SuBL3 R2OFF+REG IMAGE(FP), #1, R2 — ; 2 + nibbles 
; : es 
SC 594 ; SUBS RS _OFF+REG_IMAGE(FP), R3 ats bytes - bytes 
5¢ 95 : SUBL2é py ; nibbles 
5¢ 38 : ; MOVB aioe 
5¢ | 59 ASHP , #6, “(3}., #0, R2, (R3) : Clear destination 
50 pc 095¢ 598 1108:  MOVPSL AO" 
FB78 DD 04 00 50 FO 5 99 INSV #4, @PSL 4 aaa IMAGE (FP) ; Store NZVC bits 
FB38 DD 04 0265 600 CLRL and OFF+ADR MAGE (FP) ; RO = 
FB3C DD = =65606=——i0 «026 601 MOVL ari OFFTADR IMAGE (FP) ; R1 = address of source 
FB4O bp D4 6 6 60¢ CLRL BR OFFFADR IMAGE (FP) : R - 
FB44 DD 5 DO 60 MOVL R3, @R3_OFFFADR_IMAGE(FP = address of destination 
FB74 DD FB AD DO 027 604 MOVL Fakce PC(FP), aPC MOFF SADR. IMAGE (EP) 
50 01 00 8 7D = 605 MOVL #1, RO 3 Indicate success 
05 80 606 RSB 


r. § 
decimal reserved operand 16-SEP-1984 219: AX/VMS Macro Vv04-00 P 1 
e Get contents end Cadresses of a mie} 83:42:98 CORY ES. SRE TIMP TXUED MAR: 1 _— ( 


— -SBTTL GET_REGS Get contents and addresses of all save registers in stack 
; FUNCTIONAL DESCRIPTION: 


ET REGS scans the stack and finds all registers saved 
n call frames back to the signal facility. Thus it 

makes en image of the registers at the time of the 

exception or CALL LIBSSIGNAL/STOP. Because a double 

operand may be saved in two different places, an image 

array of addresses where the registers are saved is also created. 
Note: GET_REGS assumes: 

caller has saved R2:R11 in frame using its entry mask so all registers 
are in memory somewhere. Stack scan is defensive against bad stacks. 
ote: 

To reconstruct contents of SP at time of exception or call LIBSSIGNAL, 
Use the fact that the signal args List is pushed on stack first. 

That is SP is = adr of Last signal ore +4, 

Also depends on saved PC being SYSSCALL_HANDL+4. 


CALLING SEQUENCE: 
JSB GET_REGS 
: INPUT PARAMETERS: 

NONE 

: IMPLICIT INPUTS: 


CHF SL_SIGARGLST. (AP) 
CHF SLMCHARGLST. (AP) 


OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 


REG_IMAGE (FP) 
ADR7 IMAGE (FP) 


LIBSF IXUP_DEC - #4 
voe2000" ~ GET_R 


“ 


Adr. of array of signal args 
; Adr. of array of mechanism args 


DRDPBLPEDPARPEXR_ER AA AA AA AA AAA AAA AAA AA AA AA AAAS A AO 
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A.M EAI OO O8 NAMEN O OO NAUS WN OOONAUE WOO 


set reg image array RO:PC/PSL 
Set adr where reg saved RO:PC/PSL 
except adr. where SP SAVED = 0, since not 


COMPLETION CODES: 
NONE JSB 
SIDE EFFECTS: 
If error, RET with error code 


+ 
Registers used: 


scratch F ; 
pointer to register image array (REG_IMAGE) 
stack frame pointer 


ee em em ea ed a a ed dd ad ed ed dd = 2 8 8 3 3 2 


PAAAAAAAAAAAAAAA AO 
PDOEAAXAPMNMMNMNIIIVNI & & & 
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LIBSF IXUP_DEC - Fixup decimal reserved operand =“SEP=-1984 01:19: AX/VMS Macro v04-00 P 1 
ye -000 GET_REGS Get contents and addresses of a eet 83:42:45 SORTSS. SRETLIBE IXUPD MARS 1 a (>) | 
1 665 ; R3 = Adr. of register save area in frame F 
1 006 3 R4 = Loop count ; 
1 66 ; RS = pointer to address image array (ADR_IMAGE) ; 
1 rt 3 R6 = register save mask : 
1 $8 i- F 
: go GET_REGS t ister i 
} ere . 2 3; get register imags ’ 
1 675 ;¢ 3 
1 ere ; Setup loop to scan back through stack 
1 676° 
51 BC AD OD 1 $99 MOVAL REG_IMAGE(FP), R1 ; R1 = Adr. reg image vector 
Fe Va 8 3 ors MOVL FP, R2 : Re = Aer ot feccont irons P 
; where all callers register sa 
54 01 10 78 QO , 680 ASHL #16, #1, RS : R4 = max loop count : 65K oy 
55 FB38 CD DE O028C et MOVAL ADR_IMAGE (FP), R5 ; RS = adr. of array of address where 
8 4) ong x ; registers are saved. 
0291 684 : Loop to scan call stack back to signal exceptio 
a a lea 
53 14 52 C1 0291 $89 LOOP: ADDL3 Ree #SFSL_SAVE_REGS, - ; gyeck frame adr + offset to first reg save 
0295 688 R ; R3 = adr. of first saved reg. 
50 D4 0295 689 CLRL RO ; RO = first possible register # saved 
56 06 A2 OC O00 EF 0297 690 EXTZV #SFSV_SAVE_MASK, - 3 position of save mask 
0290 691 #SFS$S_SAVE_ MASK, = ; size of save mask 
8 4 2 SF$W_SAVE_MASK(R2), R6 : R6 = register save mask 
0290 694 ;+ 
0290 695 ; loop to copy saved registers RO:R11 from one call stack frame 
3 3p 636 ; to register image array also set address of register image array. 
0990 698 * 
56 OC 50 EA 0290 699 LOOP1: FFS RO, #12, - :; find next register in saved bit mask 
50 BSAl Ne R6, RO ; RO = register number of next saved reg. 
ww: 3 & AS 70 BEQL 10$ : branch if finished 12-bit reg mask 
63 04 00 OD 8 A4 70 PROBEW #0, #4, (R3) 3; check if stack still writeable 
g 13 AB 704 BEQL BAD_STACK1 : branch if stack bad 
540 3 DO O2AA 705 MOVL R3, (RS)CRO ; store address of where Rn saved 
6140 83 00 A 706 MOVL (R3)+, (RI)CROI 3; copy saved Rn to image + Rn 
756 50 €4 : 708 BBSC RO, R6, LOOP! ; clear bit n for Rn, get next bit 
B 709 ;+ 
+4 oy 3; check if frame just saved is that of call to handler from signal or exception 
3° 
B6 «671 
00000004'8F 10 A2 01 B6 ae 108: CMPL SFSL_SAVE_PC(R2), - ; saved PC the one from call to handler? 
BE 714 #SYSSCALL~HANDL +4 ; absolute system vector adr 
16 «613 3 2 BEQL END_SCAN ; branch if yes 
C 15 i+ 
: o8 3; step (cautiously) to previous frame | 
CO 720° 
14 00 OD C 454 PROBEW #0, #SFSL_SAVE_REGS,- ; check if fixed part of previous frame ok 


H 6 
LIBSF 1XUP_DEC - Fixup decimal reserved operand 16-SEP-1984 01:19: AX/VMS 4- P 
ye 000 GET. 3 Get contents and oddresses of a 5-SEP-1984 85:33:99 SORTS Rese rBF IxUPD MAR: 1 set (9) 


1 sean «BAD STACKS i branch if f t writeabl 
3 branc rame not writeable 
52 Of A2 09 MOVL CSC SAVE_FP(R2), R2 ; R2 = adr. of previous frame 
(3 54sCO*éF SOBGTR R4, COOP ; go back if haven't scanned too many frames | 
s¢ 
: here if bad stack - return LIBS_BADSTA to caller of LIBSFLT_FIXUP 


BAD_STACK1: 
MOVL #LIBS_BADSTA, RO ; RO = BAD STACK completion code 
RET ; return to caller of LIBSFIXUP_DEC 
; not JSB caller of GET_REGS 


50 00000000'8F 00 


3¢ ’ 

; Here when scanned all frames back to call to handler 

; Copy RO:R1 from mechanism vector. Set AP,FP,SP,PC,PSL 

; Also set address where each of these registers is saved 


END_SCAN: 
MOVL CHFSL_MCHARGLST(AP), RO ; RO = adr. of signal mechanism arglist 
MOVAL CHFSL_MCH_SAVRO(RO), - 3; adr. where RO saved 
RO_OFF(RS) ; to vector of addresses 
MOVAL CHPSL MCH_SAVR1(RO), = adr. where R1 saved 


; to veces address vector 
MOVaQ CHFSL_MCH_SAVRO(RO), = ; saved RO/R1 

RO_OFFC(RI) 
ety #AP_OFF, R1 


; to register image vector 
R1 = adr. in image vector of AP/FP 


DOL #AP »_R5 R5 = adr. in image address vector of AP/7P 
85 08 A2. DE MOVAL SFS$C_SAVE_AP(R2), - adr of saved AP 
(R5)# to image address vector 
85 OC A2. DE MOVAL SFSL_SAVE_FP(R2), - adr of saved FP 
t to image address vector 
81 08 A2 7D saved AP/FP 


MOVQ SFSL_SAVE_AP(R2), - 
(R1)F 


MOVZBL @CHFSL_SIGARGLST (AP) 


Ro to image register vector 
MOVAL acHFSL"SIGARGLST (AP) CROJ, 


; RO = # of signal args 
RO ; RO = adr of last signal arg 
RO = SP at time of exception or call LIBSS 
NOTE: this a spec from LIBSSIGNAL and 


SNS 


Pete a ealtalegl tal taltaltahtaltaltal ot ot ot a ot ot ont ont ot oe 
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166 3 exception processing of operating system!! 
8 D4 76 CLRL (R5)+ ; SP not saved anywhere so set IMAGE _ADR TO 
81 0 0 764 MOVL RO, (R1)+ 3 set image SP 
81 70 D 7 MOVQ -(RO), (R1)+ $ sopy PC/7PSL to inoge (always last 
§ ; 2 signal arguments 
85 +4 DE 76 MOVAL (RO), (R5)+ 3; set adr. where PC saved 
85 ae 768 MOVAL (RO)+, (R5)+ ; set adr. where PSL saved 
0 f i! RSB 3; return (to LIBSFIXUP_DEC) 
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; end of LIBSFIXUP_DEC 
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- Fixup decimal reserved operand 


DEC 
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LIBSF IXUP_DEC 
Symbol table 
ADR_ IMAGE 
ALLOPDS 
AP_OFF 
AUTO_DECR 
CHF SL 

DISPL 

LIBSF IXUP 
SET _OA2 
SFSC_SAVE_AP 


Tephg tng B 
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Psect synops i Acraeahnme pars Pik pets geste "$23 pa} 984 85:43:45 USbRTSS. SREICI 


Goeeoeoeeeoooeoceces$} 


! Psect synopsis ! 


bower en nen we morse ey 


PSECT name Allocation PSECT No. Attributes 
° . 000 44 ( -) 00 ¢ 9-3 NOPIC USR CON ABS LCL NOSHR NOEXE NORD 
SABSS 00 ° ( a oF -) NOPIC USR CON ABS LCL NOSHR EXE R&D 
_LIBSCODE 00000314 ( 788.) 02 ¢ 2.) PIC USR CON REL LCL SH EXE RD 
foe ece neem eee ee mo wonweoant} 
; Performance indicators H 
Phase Page faults CPU Time Elapsed Time 


Initialization 9 0:00:00.04 0:00: 1-8) 
Tone An ee en 
pystol table sort mm 30:93 0:88 00:00: g-09 
ass 7:00:01. :00:07. 
Symbol table output 18 09: 8; 0.0 90:00:00:4 
Psect synopsis output 0:00: 3-9 00:00:00.0 
Cross-reference output Bot R8: .0 es Be 
Assembler run totals 521 00:00:09.7 00:00:38.16 


The working sgt Limit was 1200 pages. 

37212 bytes (73 pages) of virtual memory were used to buffer She intermediate code. 

There were 30 pages of symbol table space allocated to hold 579 non-local and 20 local symbols. 
771 source Lines were read in Pass 1, producing object records in Pass 2. 

13 pages of virtual memory were used to define 12 macros. 


foes seat eee eee mee nese ese ene + 


! Macro Library statistics H 
$m ete et ee em 


Macros defined 


598 GETS were required to define 8 macros. 
There were no errors, warnings or information messages. 
MACRO/DISABLE=TRACE/LIS=LIS$:LIBF IXUPD/OBJ=OBJ$:LIBFIXUPD MSRC$:LIBF IXUPD/UPDATE=(ENHS$:LIBFIXUPD) 


v04-00 Page 


BF IXUPD.MAR; 1 


NOWRT NOVEC BYTE 
WRT NOVEC BYTE 
NOWRT NOVEC LONG 
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